home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS229B.dsk / ABC DEMO.bas next >
BASIC Source File  |  2012-02-16  |  1KB  |  18 lines
  1. 3  PRINT : HOME :UN = 24617:D$ =  CHR$(4): ONERR  GOTO 790
  2. 4  POKE 960, PEEK(674)
  3. 5  HOME : HIMEM: 8192: GOSUB 10000: POKE 230,32: POKE  -16297,0: POKE  -16302,0: POKE  -16300,0: CALL 62450: POKE  -16304,0
  4. 6  PRINT D$"BLOADB.ALPHABET SOUP": PRINT D$"BLOADLARGE FONT": POKE 230,64: CALL UN,150,21: ON   NOT  PEEK(255) GOTO 790: POKE  -16299,0: FOR I = 1 TO 2000: NEXT 
  5. 10  POKE 1013,76: POKE 1014,8: POKE 1015,96
  6. 15  POKE 230,32: CALL UN,128,8: ON   NOT  PEEK(255) GOTO 790: POKE  -16300,0: FOR I = 1 TO 2000: NEXT 
  7. 20  POKE 233, PEEK(UN +22): POKE 232, PEEK(UN +21): POKE WF,0: SCALE= 1: ROT= 0: HCOLOR= 3
  8. 21 J =  PEEK(UN +30) + PEEK(UN +31) *256
  9. 22  IF  PEEK(960) = 119  THEN  POKE  PEEK(UN +4) + PEEK(UN +5) *256 +5,0: REM  DISABLE SOUND
  10. 25  POKE 230,64: CALL UN,128,0: ON   NOT  PEEK(255) GOTO 790: FOR I = 1 TO 4000: NEXT : POKE  -16299,0
  11. 26  FOR I = 1 TO 4000: NEXT 
  12. 27  PRINT D$"BLOAD ABC KEYS,A"J
  13. 30  PRINT D$"RUN MENU": END 
  14. 790  HOME : PRINT : RUN 
  15. 10000  RETURN 
  16. 10010  FOR I = 801 TO 806: READ J: POKE I,J: NEXT : POKE 1010,33: POKE 1011,3: CALL  -1169
  17. 10020  RETURN 
  18. 11100  DATA 32,234,3,32,102,213